home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / MPW Related / DTS MPW Goodies / MountProjector < prev    next >
Encoding:
Text File  |  1990-09-14  |  2.0 KB  |  76 lines  |  [TEXT/MPS ]
  1. #
  2. # MountProjector        Andrew Shebanow        6/28/88
  3. #
  4. # Modification History:
  5. #
  6. #    2/6/89(AGS)        Added code to execute ProjInit script, and replaced
  7. #                    references to MySrc variable with SourceDir
  8. #    1/24/89(AGS)    Changed 'cd' command to 'Directory',
  9. #    6/30/88(DJB)    Changed from using replace on files to using Evaluate
  10. #    7/8/88(AGS)        No need to create project list now, since we do it
  11. #                    every time we do a SetProjector.
  12. #
  13. # Script to mount a project
  14. #
  15. # Note that you must use Execute to run this script
  16. # if you want BuildMenu to know about your new build
  17. # target.
  18. #
  19.  
  20. # save exit status
  21. Set OldExit {Exit}
  22. Set Exit 0
  23.  
  24. # Set up project specific items
  25. Set ProjDir NIL
  26.  
  27. Set ProjDir `GetListItem -r 16 -single -d {RootProjectList} -m "Choose a project"` > Dev:Null ≥ Dev:Null
  28.  
  29. # If User Selected a real project name
  30. if "{ProjDir}" != NIL
  31.  
  32.     # Extract the root project name
  33.     ( Evaluate "{ProjDir}" =~ /≈:(≈)®1:/ ) ∑ Dev:Null
  34.     Set ProjName "{®1}"
  35.     
  36.     # Mount the project, make it the default
  37.     MountProject "{ProjDir}" ≥≥ "{WorkSheet}"
  38.     
  39.     # If directory exists, checkout to it
  40.     If "`Exists -d {SourceDir}{ProjName}.src`"
  41.         # set the checkout dir to a file
  42.         Set CheckDir "{SourceDir}{ProjName}.src"
  43.     Else If "`Exists -d {SourceDir}{ProjName}`"
  44.         # set the checkout dir to a file
  45.         Set CheckDir "{SourceDir}{ProjName}"
  46.     # Else For Dave B.
  47.     Else If "`Exists -d {SourceDir}{ProjName}_Fldr`"
  48.         # set the checkout dir to a file
  49.         Set CheckDir "{SourceDir}{ProjName}_Fldr"
  50.     Else
  51.         # We didn't find the checkout dir, so use default
  52.         Set CheckDir "{ProjDir}"        
  53.     End
  54.     CheckOutDir -r -project "{ProjName}" "{CheckDir}" ≥≥ "{WorkSheet}"
  55.     
  56.     # Make checkout dir the current directory
  57.     Directory "{CheckDir}"
  58.     
  59.     # Set Program Variable for Build menu
  60.     Set Program {ProjName}
  61.     Export Program
  62.  
  63.     # Update our menus
  64.     DeleteMenu Source ∑∑ Dev:Null || Set Status 0
  65.     ProjListMenu
  66.     
  67.     # Execute project init script if present
  68.     If "`Exists ProjInit`" != ""
  69.         Execute ProjInit ∑∑ "{WorkSheet}"
  70.     End
  71.  
  72. End
  73.  
  74. # restore previous state of {Exit}
  75. Set Exit {OldExit}
  76.